home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / mtx_101.zip / INSTALL.DO < prev    next >
Text File  |  1991-03-16  |  29KB  |  1,408 lines

  1. ;
  2. ; ╔═════════════════════════════╗
  3. ; ║  Mycroft Door Installation  ║
  4. ; ║    By: Michael W. Bayley    ║
  5. ; ║         Mar 30, 1989        ║
  6. ; ╚═════════════════════════════╝
  7.  
  8.  
  9. ;
  10. ; ╔══════════════════╗
  11. ; ║  Variable Usage  ║
  12. ; ╚══════════════════╝
  13. ;┌───────────────────────────────────────────────────────────────────────────┐
  14. ;│      String Variables                    Numeric Variables                │
  15. ;├───────────────────────────────────────────────────────────────────────────┤
  16. ;│  %0  General String Input            #0  General Numeric Input            │
  17. ;│  %1  DeArc program Name              #1  Work variable                    │
  18. ;│  %2  Work variable                   #2  Work variable                    │
  19. ;│  %3  Work variable                   #3  Work variable                    │
  20. ;│  %4  Work variable                   #4  Work variable                    │
  21. ;│  %5  Bulletin #1 Drive & Path        #5  Max Time                         │
  22. ;│  %6  Bulletin #2 Drive & Path        #6                                   │
  23. ;│  %7  Bulletin #3 Drive & Path        #7                                   │
  24. ;│  %8  Bulletin #4 Drive & Path        #8                                   │
  25. ;│  %9                                  #9                                   │
  26. ;│ %10  BBS Name                       #10  Number of BBS Nodes              │
  27. ;│ %11  SysOp Name                     #11                                   │
  28. ;│ %12  BBS Type                       #12  BBS Type ID                      │
  29. ;│ %13  BBS Tag                        #13                                   │
  30. ;│ %14  Monitor Drive & Path           #14                                   │
  31. ;│ %15  Batch Filename                 #15  Install/Update Flag              │
  32. ;│ %16  Door Drive                     #16                                   │
  33. ;│ %17  Door Path                      #17                                   │
  34. ;│ %18  Docs Drive & Path              #18                                   │
  35. ;│ %19                                 #19                                   │
  36. ;│ %20  Node 1 BBS Drive               #20  Node 1 BBS Comm Port #           │
  37. ;│ %21  Node 2 BBS Drive               #21  Node 2 BBS Comm Port #           │
  38. ;│ %22  Node 3 BBS Drive               #22  Node 3 BBS Comm Port #           │
  39. ;│ %23  Node 4 BBS Drive               #23  Node 4 BBS Comm Port #           │
  40. ;│ %24                                 #24                                   │
  41. ;│ %25  Node 1 BBS Path                #25                                   │
  42. ;│ %26  Node 2 BBS Path                #26                                   │
  43. ;│ %27  Node 3 BBS Path                #27                                   │
  44. ;│ %28  Node 4 BBS Path                #28                                   │
  45. ;│ %29                                 #29                                   │
  46. ;│ %30  Editor Login                   #30                                   │
  47. ;│ %31  Editor Password                #31                                   │
  48. ;└───────────────────────────────────────────────────────────────────────────┘
  49.  
  50.  
  51. ;
  52. ; ╔════════════════════════╗
  53. ; ║  Initialize Variables  ║
  54. ; ╚════════════════════════╝
  55. ;
  56. $SET %14 "<not in use>"
  57. $SET %20 ""
  58. $SET %21 ""
  59. $SET %22 ""
  60. $SET %23 ""
  61. $SET %25 "<not in use>"
  62. $SET %26 "<not in use>"
  63. $SET %27 "<not in use>"
  64. $SET %28 "<not in use>"
  65.  
  66. $SET #20 0
  67. $SET #21 0
  68. $SET #22 0
  69. $SET #23 0
  70.  
  71.  
  72.  
  73.  
  74.  
  75. ;
  76. ; ╔══════════════════╗
  77. ; ║  Signon Screens  ║
  78. ; ╚══════════════════╝
  79. ;
  80. CLS
  81. $MSG
  82. $MSG
  83. $MSG "  The Mycroft Text Display Door         "
  84. $MSG "  Installation Procedure                "
  85. $MSG "  By Michael W. Bayley                  "
  86. $MSG "  Mycroft Systems (408)927-0105         "
  87. $MSG "  Version 1.00  Oct 25, 1990            "
  88. $MSG
  89. $MSG
  90. $MSG "  This program is used to install/update the Mycroft TEXTDOOR on       "
  91. $MSG "  your system.  It is intended to simplify bringing up the door by     "
  92. $MSG "  relieving you of the task of reading all the SysOps documentation    "
  93. $MSG "  and having to build the .BAT files and configuration files.  It is   "
  94. $MSG "  still recommended however that you do read the SysOps documentation. "
  95. $MSG
  96. $MSG "  The following files must be in this directory:                       "
  97. $MSG
  98. $MSG "      ■ INSTALL.BAT                                                    "
  99. $MSG "      ■ INSTALL.DO                                                     "
  100. $MSG "      ■ MTX-D.ZIP                                                      "
  101. $MSG "      ■ MTX-X.ZIP                                                      "
  102. $MSG
  103. $INP %0 "  Press [ENTER] to continue..."
  104.  
  105. CLS
  106. $MSG
  107. $MSG
  108. $MSG "  This program will perform the following functions:                   "
  109. $MSG
  110. $MSG "      ■ DeZip all SysOp and User documentaton                          "
  111. $MSG "      ■ DeZip all door program files                                   "
  112. $MSG "      ■ Provide the user access to the documentation                   "
  113. $MSG "      ■ Build the node id file (NODES.BBS)                             "
  114. $MSG "      ■ Build door .BAT file                                           "
  115. $MSG "      ■ Build any configuration files                                  "
  116. $MSG "      ■ Run any required program initialization                        "
  117. $MSG
  118. $MSG "  After the installation is complete, the door should be able to be    "
  119. $MSG "  run after you have made any required changes to add the door to      "
  120. $MSG "  your BBS door list.                                                  "
  121. $MSG
  122. $MSG "  If you are running a BBS that is not supported by this door, you     "
  123. $MSG "  will need to use a BBS conversion program and make changes to the    "
  124. $MSG "  .BAT files as required.                                              "
  125. $MSG
  126. $MSG "  Follow the instructions and answer each question carefully.  Typos   "
  127. $MSG "  are the main cause of the door not being setup correctly.            "
  128. $MSG
  129.  
  130. $:VALID
  131. $INP %0 "  Enter [I] to install, [U] to update, or [Q] to quit: "
  132. $IF %0 = "I" INSTALL
  133. $IF %0 = "i" INSTALL
  134. $IF %0 = "U" UPDATE
  135. $IF %0 = "u" UPDATE
  136. $IF %0 = "Q" ABORT
  137. $IF %0 = "q" ABORT
  138. $GOTO VALID
  139.  
  140. $:ABORT
  141. $MSG
  142. $MSG "  Process aborted..."
  143. $MSG
  144. $GOTO DONE
  145.  
  146.  
  147.  
  148.  
  149.  
  150. ;
  151. ; ╔═════════════════╗
  152. ; ║  Get All Input  ║
  153. ; ╚═════════════════╝
  154. ;
  155. $:INSTALL
  156. $SET #15 1
  157. $GOTO START
  158. ;
  159. $:UPDATE
  160. $SET #15 0
  161. ;
  162. $:START
  163. $GOSUB BBS_NAME
  164. $GOSUB SYSOP
  165. $GOSUB BBS_TYPE
  166.  
  167. $IF #12 < 3 NO_MON
  168. $IF #12 > 4 NO_MON
  169. $GOSUB MON_PATH
  170.  
  171. $:NO_MON
  172. $GOSUB NODES
  173.  
  174. $SET #30 1
  175. $SET #1 #30
  176. $GOSUB BBS_PATH
  177. $SET %20 %2
  178. $SET %25 %3
  179. $SET #1 #30
  180. $GOSUB BBS_COMM
  181. $SET #20 #1
  182. $ADD #30 1
  183.  
  184. $IF #30 > #10 LPEND
  185. $SET #1 #30
  186. $GOSUB BBS_PATH
  187. $SET %21 %2
  188. $SET %26 %3
  189. $SET #1 #30
  190. $GOSUB BBS_COMM
  191. $SET #21 #1
  192. $ADD #30 1
  193.  
  194. $IF #30 > #10 LPEND
  195. $SET #1 #30
  196. $GOSUB BBS_PATH
  197. $SET %22 %2
  198. $SET %27 %3
  199. $SET #1 #30
  200. $GOSUB BBS_COMM
  201. $SET #22 #1
  202. $ADD #30 1
  203.  
  204. $IF #30 > #10 LPEND
  205. $SET #1 #30
  206. $GOSUB BBS_PATH
  207. $SET %23 %2
  208. $SET %28 %3
  209. $SET #1 #30
  210. $GOSUB BBS_COMM
  211. $SET #23 #1
  212.  
  213. $:LPEND
  214.  
  215. $GOSUB DOORPATH
  216. $GOSUB BAT_NAME
  217.  
  218.  
  219.  
  220.  
  221.  
  222. ;
  223. ; ╔═════════════════════╗
  224. ; ║  Main Control Menu  ║
  225. ; ╚═════════════════════╝
  226. ;
  227. $:MENU
  228. CLS
  229. $MSG
  230. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  231. $MSG "  │                    M Y C R O F T   T E X T   D O O R                     │"
  232. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  233. $SET %2 "        [1]  BBS Name                 : "
  234. $CAT %2 %10
  235. $MSG %2
  236. $SET %2 "        [2]  SysOps Name              : "
  237. $CAT %2 %11
  238. $MSG %2
  239. $SET %2 "        [3]  BBS Type                 : "
  240. $CAT %2 %12
  241. $MSG %2
  242. $SET %2 "        [4]  Monitor Path             : "
  243. $CAT %2 %14
  244. $MSG %2
  245. $SET %2 "        [5]  Door Batch Filename      : "
  246. $CAT %2 %15
  247. $MSG %2
  248. $SET %2 "        [6]  Door Drive & Path        : "
  249. $CAT %2 %16
  250. $CAT %2 %17
  251. $SET %2 "        [7]  Node Count               : "
  252. $CAT %2 #10
  253. $MSG %2
  254. $SET %2 "        [8]  Node 1 Port, Drive & Path: COM"
  255. $CAT %2 #20
  256. $CAT %2 ":  -  "
  257. $CAT %2 %20
  258. $CAT %2 %25
  259. $MSG %2
  260. $SET %2 "        [9]  Node 2 Port, Drive & Path: COM"
  261. $CAT %2 #21
  262. $CAT %2 ":  -  "
  263. $CAT %2 %21
  264. $CAT %2 %26
  265. $MSG %2
  266. $SET %2 "       [10]  Node 3 Port, Drive & Path: COM"
  267. $CAT %2 #22
  268. $CAT %2 ":  -  "
  269. $CAT %2 %22
  270. $CAT %2 %27
  271. $MSG %2
  272. $SET %2 "       [11]  Node 4 Port, Drive & Path: COM"
  273. $CAT %2 #23
  274. $CAT %2 ":  -  "
  275. $CAT %2 %23
  276. $CAT %2 %28
  277. $MSG %2
  278. $MSG "  ────────────────────────────────────────────────────────────────────────────"
  279. $INP %0 "  Enter item to change, [ENTER] to build, or [Q] to quit: "
  280.  
  281. $IF %0 = "1" MENU1
  282. $IF %0 = "2" MENU2
  283. $IF %0 = "3" MENU3
  284. $IF %0 = "4" MENU4
  285. $IF %0 = "5" MENU5
  286. $IF %0 = "6" MENU6
  287. $IF %0 = "7" MENU7
  288. $IF %0 = "8" MENU8
  289. $IF %0 = "9" MENU9
  290. $IF %0 = "10" MENU10
  291. $IF %0 = "11" MENU11
  292. $IF %0 = "Q" ABORT
  293. $IF %0 = "q" ABORT
  294. $IF %0 = "" BUILD
  295.  
  296.  
  297. $MSG "  Error - Invalid selection."
  298. $:DELAY
  299. $SET #0 1
  300. $IF #0 = 25 MENU
  301. $ADD #0 1
  302. $GOTO DELAY
  303.  
  304.  
  305. $:MENU1
  306. $GOSUB BBS_NAME
  307. $GOTO MENU
  308.  
  309.  
  310. $:MENU2
  311. $GOSUB SYSOP
  312. $GOTO MENU
  313.  
  314.  
  315. $:MENU3
  316. $GOSUB BBS_TYPE
  317. $GOTO MENU
  318.  
  319.  
  320. $:MENU4
  321. $GOSUB MON_PATH
  322. $GOTO MENU
  323.  
  324.  
  325. $:MENU5
  326. $GOSUB BAT_NAME
  327. $GOTO MENU
  328.  
  329.  
  330. $:MENU6
  331. $GOSUB DOORPATH
  332. $GOTO MENU
  333.  
  334.  
  335. $:MENU7
  336. $GOSUB NODES
  337. $GOTO MENU
  338.  
  339.  
  340. $:MENU8
  341. $SET #1 1
  342. $GOSUB BBS_PATH
  343. $SET %20 %2
  344. $SET %25 %3
  345. $SET #1 1
  346. $GOSUB BBS_COMM
  347. $GOTO MENU
  348.  
  349.  
  350. $:MENU9
  351. $SET #1 2
  352. $GOSUB BBS_PATH
  353. $SET %21 %2
  354. $SET %26 %3
  355. $SET #1 2
  356. $GOSUB BBS_COMM
  357. $GOTO MENU
  358.  
  359.  
  360. $:MENU10
  361. $SET #1 3
  362. $GOSUB BBS_PATH
  363. $SET %22 %2
  364. $SET %27 %3
  365. $SET #1 3
  366. $GOSUB BBS_COMM
  367. $GOTO MENU
  368.  
  369.  
  370. $:MENU11
  371. $SET #1 4
  372. $GOSUB BBS_PATH
  373. $SET %23 %2
  374. $SET %28 %3
  375. $SET #1 4
  376. $GOSUB BBS_COMM
  377. $GOTO MENU
  378.  
  379.  
  380.  
  381.  
  382.  
  383. ;
  384. ; ╔══════════════════════════════╗
  385. ; ║  Build Required Directories  ║
  386. ; ╚══════════════════════════════╝
  387. ;
  388. $:BUILD
  389. CLS
  390. $MSG
  391. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  392. $MSG "  │                    M Y C R O F T   T E X T   D O O R                     │"
  393. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  394. $MSG
  395. $MSG "  Building directories..."
  396. $SET %2 %16
  397. $CAT %2 %17
  398. MAKEDIR %2
  399. $CAT %2 "\DOCS"
  400. MAKEDIR %2
  401.  
  402.  
  403.  
  404.  
  405.  
  406. ;
  407. ; ╔═══════════════════════╗
  408. ; ║  UnZip Documentation  ║
  409. ; ╚═══════════════════════╝
  410. ;
  411. $MSG "  UnZipping documentation..."
  412. PKUNZIP -o MTX-D.ZIP %2 *.* >NUL
  413.  
  414.  
  415.  
  416.  
  417.  
  418. ;
  419. ; ╔═══════════════════════╗
  420. ; ║  UnZip Program Files  ║
  421. ; ╚═══════════════════════╝
  422. ;
  423. $MSG "  UnZipping program files..."
  424. $SET %2 %16
  425. $CAT %2 %17
  426. PKUNZIP -o MTX-X.ZIP %2 *.* >NUL
  427.  
  428.  
  429.  
  430.  
  431.  
  432. ;
  433. ; ╔═══════════════════╗
  434. ; ║  Build NODES.BBS  ║
  435. ; ╚═══════════════════╝
  436. ;
  437. $MSG "  Building node ID file(s)..."
  438.  
  439. $IF #12 < 3 NBBS0
  440. $IF #12 > 4 NBBS0
  441. $SET %2 %14
  442. $GOTO NBBS1
  443.  
  444. $:NBBS0
  445. $SET %2 %20
  446. $CAT %2 %25
  447.  
  448. $:NBBS1
  449. $CAT %2 "\NODES.BBS"
  450. REMOVE %2
  451. $:NBBS1_NO
  452. $SET %3 "COM"
  453. $CAT %3 #20
  454. $WRITE %2 %3
  455. $SET %3 "COM"
  456. $CAT %3 #21
  457. $WRITE %2 %3
  458. $SET %3 "COM"
  459. $CAT %3 #22
  460. $WRITE %2 %3
  461. $SET %3 "COM"
  462. $CAT %3 #23
  463. $WRITE %2 %3
  464. $SET %3 %16
  465. $CAT %3 %17
  466. $CAT %3 "\NODES.BBS"
  467. COPY %2 %3 >NUL
  468.  
  469. $IF #12 = 3 BATCH
  470. $IF #12 = 4 BATCH
  471. $IF #10 < 2 BATCH
  472. $SET %3 %21
  473. $CAT %3 %26
  474. $CAT %3 "\NODES.BBS"
  475. $IF %2 = %3 NBBS3
  476. COPY %2 %3 >NUL
  477.  
  478. $:NBBS3
  479. $IF #10 < 3 BATCH
  480. $SET %3 %22
  481. $CAT %3 %27
  482. $CAT %3 "\NODES.BBS"
  483. $IF %2 = %3 NBBS4
  484. COPY %2 %3 >NUL
  485.  
  486. $:NBBS4
  487. $IF #10 < 4 BATCH
  488. $SET %3 %23
  489. $CAT %3 %28
  490. $CAT %3 "\NODES.BBS"
  491. $IF %2 = %3 BATCH
  492. COPY %2 %3 >NUL
  493.  
  494.  
  495.  
  496.  
  497.  
  498. ;
  499. ; ╔═════════════════════╗
  500. ; ║  Build Batch Files  ║
  501. ; ╚═════════════════════╝
  502. ;
  503. $:BATCH
  504. $IF #12 < 3 BAT1
  505. $IF #12 > 4 BAT1
  506.  
  507. $MSG "  Copying MONITOR1.EXE file to door directory..."
  508. $SET %2 %14
  509. $CAT %2 "\MONITOR1.EXE"
  510. $SET %3 %16
  511. $CAT %3 %17
  512. $IF EXISTS %2 MON_COPY
  513.  
  514. $MSG "  WARNING - MONITOR1.EXE file not found!"
  515. $GOTO CONFIG
  516.  
  517. $:MON_COPY
  518. COPY %2 %3
  519. $GOTO CONFIG
  520.  
  521. $:BAT1
  522. $MSG "  Building door batch file(s)..."
  523. $SET %2 %20
  524. $CAT %2 %25
  525. $CAT %2 "\"
  526. $CAT %2 %15
  527. REMOVE %2
  528. $:BAT1_NO
  529. $WRITE %2 "ECHO OFF"
  530. $WRITE %2 "ECHO ┌─────────────────────┐"
  531. $WRITE %2 "ECHO │  MYCROFT TEXT DOOR  │"
  532. $WRITE %2 "ECHO └─────────────────────┘"
  533. $WRITE %2 %16
  534. $SET %3 "CD "
  535. $CAT %3 %17
  536. $WRITE %2 %3
  537.  
  538. $SET %3 "TEXTDOOR"
  539. $IF #12 = 1 BAT11
  540. $IF #12 = 2 BAT11
  541. $CAT %3 " 1 "
  542. $GOTO BAT12
  543. $:BAT11
  544. $CAT %3 " %1 "
  545. $:BAT12
  546. $CAT %3 %20
  547. $CAT %3 %25
  548. $CAT %3 " "
  549. $CAT %3 %13
  550. $WRITE %2 %3
  551.  
  552. $WRITE %2 %20
  553. $SET %3 "CD "
  554. $CAT %3 %25
  555. $WRITE %2 %3
  556. $WRITE %2 " "
  557.  
  558.  
  559.  
  560. $:BAT2
  561. $IF #10 < 2 CONFIG
  562. $SET %4 %21
  563. $CAT %4 %26
  564. $CAT %4 "\"
  565. $CAT %4 %15
  566. $IF %2 = %4 BAT3
  567. $SET %2 %4
  568. REMOVE %2
  569. $:BAT2_NO
  570. $WRITE %2 "ECHO OFF"
  571. $WRITE %2 "ECHO ┌─────────────────────┐"
  572. $WRITE %2 "ECHO │  MYCROFT TEXT DOOR  │"
  573. $WRITE %2 "ECHO └─────────────────────┘"
  574. $WRITE %2 %16
  575. $SET %3 "CD "
  576. $CAT %3 %17
  577. $WRITE %2 %3
  578.  
  579. $SET %3 "TEXTDOOR"
  580. $IF #12 = 1 BAT21
  581. $IF #12 = 2 BAT21
  582. $CAT %3 " 2 "
  583. $GOTO BAT22
  584. $:BAT21
  585. $CAT %3 " %1 "
  586. $:BAT22
  587. $CAT %3 %21
  588. $CAT %3 %26
  589. $CAT %3 " "
  590. $CAT %3 %13
  591. $WRITE %2 %3
  592.  
  593. $WRITE %2 %21
  594. $SET %3 "CD "
  595. $CAT %3 %26
  596. $WRITE %2 %3
  597. $WRITE %2 " "
  598.  
  599.  
  600.  
  601. $:BAT3
  602. $IF #10 < 3 CONFIG
  603. $SET %4 %22
  604. $CAT %4 %27
  605. $CAT %4 "\"
  606. $CAT %4 %15
  607. $IF %2 = %4 BAT4
  608. $SET %2 %4
  609. REMOVE %2
  610. $:BAT3_NO
  611. $WRITE %2 "ECHO OFF"
  612. $WRITE %2 "ECHO ┌─────────────────────┐"
  613. $WRITE %2 "ECHO │  MYCROFT TEXT DOOR  │"
  614. $WRITE %2 "ECHO └─────────────────────┘"
  615. $WRITE %2 %16
  616. $SET %3 "CD "
  617. $CAT %3 %17
  618. $WRITE %2 %3
  619.  
  620. $SET %3 "TEXTDOOR"
  621. $IF #12 = 1 BAT31
  622. $IF #12 = 2 BAT31
  623. $CAT %3 " 3 "
  624. $GOTO BAT32
  625. $:BAT31
  626. $CAT %3 " %1 "
  627. $:BAT32
  628. $CAT %3 %22
  629. $CAT %3 %27
  630. $CAT %3 " "
  631. $CAT %3 %13
  632. $WRITE %2 %3
  633.  
  634. $WRITE %2 %22
  635. $SET %3 "CD "
  636. $CAT %3 %27
  637. $WRITE %2 %3
  638. $WRITE %2 " "
  639.  
  640.  
  641.  
  642. $:BAT4
  643. $IF #10 < 4 CONFIG
  644. $SET %4 %23
  645. $CAT %4 %28
  646. $CAT %4 "\"
  647. $CAT %4 %15
  648. $IF %2 = %4 CONFIG
  649. $SET %2 %4
  650. REMOVE %2
  651. $:BAT4_NO
  652. $WRITE %2 "ECHO OFF"
  653. $WRITE %2 "ECHO ┌─────────────────────┐"
  654. $WRITE %2 "ECHO │  MYCROFT TEXT DOOR  │"
  655. $WRITE %2 "ECHO └─────────────────────┘"
  656. $WRITE %2 %16
  657. $SET %3 "CD "
  658. $CAT %3 %17
  659. $WRITE %2 %3
  660.  
  661. $SET %3 "TEXTDOOR"
  662. $IF #12 = 1 BAT41
  663. $IF #12 = 2 BAT41
  664. $CAT %3 " 4 "
  665. $GOTO BAT42
  666. $:BAT41
  667. $CAT %3 " %1 "
  668. $:BAT42
  669. $CAT %3 %23
  670. $CAT %3 %28
  671. $CAT %3 " "
  672. $CAT %3 %13
  673. $WRITE %2 %3
  674.  
  675. $WRITE %2 %23
  676. $SET %3 "CD "
  677. $CAT %3 %28
  678. $WRITE %2 %3
  679. $WRITE %2 " "
  680.  
  681.  
  682.  
  683.  
  684.  
  685. ;
  686. ; ╔═════════════════════════════╗
  687. ; ║  Build Configuration Files  ║
  688. ; ╚═════════════════════════════╝
  689. ;
  690. $:CONFIG
  691. $MSG "  Building door configuration file..."
  692. $SET %2 %16
  693. $CAT %2 %17
  694. $CAT %2 "\TEXTDOOR.CFG"
  695. REMOVE %2
  696. $:CFG_NO
  697. $WRITE %2 %10
  698. $WRITE %2 %11
  699. $WRITE %2 "1"
  700. $WRITE %2 "32"
  701. $WRITE %2 "1"
  702. $WRITE %2 "-- BULLETIN SELECTIONS --"
  703. $WRITE %2 "TXSAMPLE.BUL     TXSAMPLE.CLR      Sample Text File"
  704.  
  705.  
  706.  
  707.  
  708. ;
  709. ; ╔═══════════════════╗
  710. ; ║  Signoff Message  ║
  711. ; ╚═══════════════════╝
  712. ;
  713. $:SIGNOFF
  714. CLS
  715. $MSG
  716. $MSG "  ┌──────────────────────────────────────────────────────────────────────────┐"
  717. $MSG "  │                    M Y C R O F T   T E X T   D O O R                     │"
  718. $MSG "  └──────────────────────────────────────────────────────────────────────────┘"
  719. $MSG
  720. $MSG "    The Mycroft Text Display Door is now ready to run.  The program is set  "
  721. $MSG "    for a sample bulletin file.  You will need to modify the TEXTDOOR.CFG   "
  722. $MSG "    file to add your own display files.  Please read the documentation for  "
  723. $MSG "    the format of this file.  You will need to modify your BBS configuration"
  724. $MSG "    files to recognize this door.  Also if your BBS software needs to be    "
  725. $MSG "    re-run after the door terminates then you will need to add a line at the"
  726. $MSG "    end of the batch files to do that."
  727. $MSG
  728. $MSG "    I hope you that you and your users enjoy this door.  If you have any    "
  729. $MSG "    problems please contact me at Mycroft Systems as listed below.  Also    "
  730. $MSG "    please take the time to fill out the registration from and mail it to me"
  731. $MSG "    at:                                                                     "
  732. $MSG
  733. $MSG "                                Mycroft Systems  "
  734. $MSG "                                 P.O. Box 7672   "
  735. $MSG "                              San Jose, CA. 95150"
  736. $MSG "                                 (408)927-0105   "
  737. $MSG
  738.  
  739.  
  740.  
  741.  
  742.  
  743. ;
  744. ; ╔══════════════════╗
  745. ; ║  All Done, Exit  ║
  746. ; ╚══════════════════╝
  747. ;
  748.  
  749. $:DONE
  750. $EXIT 0
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757. ;
  758. ; ╔════════════════════╗
  759. ; ║  Get the BBS name  ║
  760. ; ╚════════════════════╝
  761. ;
  762. $:BBS_NAME
  763. ;
  764. CLS
  765. $MSG
  766. $MSG "  ┌───────────────────────────────┐"
  767. $MSG "  │            BBS NAME           │"
  768. $MSG "  ├───────────────────────────────┤"
  769. $MSG "  │ Enter the name of your BBS as │"
  770. $MSG "  │  you wish it to show in the   │"
  771. $MSG "  │         door program.         │"
  772. $MSG "  │                               │"
  773. $MSG "  │   Example: Mycroft Systems    │"
  774. $MSG "  └───────────────────────────────┘"
  775. $INP %10 "  ══>"
  776. $RETURN
  777.  
  778.  
  779.  
  780.  
  781.  
  782. ;
  783. ; ╔══════════════════════╗
  784. ; ║  Get the SysOp name  ║
  785. ; ╚══════════════════════╝
  786. ;
  787. $:SYSOP
  788. ;
  789. CLS
  790. $MSG
  791. $MSG "  ┌───────────────────────────────┐"
  792. $MSG "  │           SYSOP NAME          │"
  793. $MSG "  ├───────────────────────────────┤"
  794. $MSG "  │ Enter the name you use as the │"
  795. $MSG "  │      SysOp of your BBS.       │"
  796. $MSG "  │                               │"
  797. $MSG "  │     Example: Mike Bayley      │"
  798. $MSG "  └───────────────────────────────┘"
  799. $INP %11 "  ══>"
  800. $RETURN
  801.  
  802.  
  803.  
  804.  
  805.  
  806. ;
  807. ; ╔═══════════════════════╗
  808. ; ║  Get the Editor name  ║
  809. ; ╚═══════════════════════╝
  810. ;
  811. $:LOGIN
  812. ;
  813. CLS
  814. $MSG
  815. $MSG "  ┌───────────────────────────────┐"
  816. $MSG "  │       EDITOR LOGIN NAME       │"
  817. $MSG "  ├───────────────────────────────┤"
  818. $MSG "  │ Enter the user login name of  │"
  819. $MSG "  │  the person you wish to have  │"
  820. $MSG "  │  access to the doors editor.  │"
  821. $MSG "  │                               │"
  822. $MSG "  │         Example: SYSOP        │"
  823. $MSG "  └───────────────────────────────┘"
  824. $INP %30 "  ══>"
  825. $RETURN
  826.  
  827.  
  828.  
  829.  
  830.  
  831. ;
  832. ; ╔═══════════════════════════╗
  833. ; ║  Get the Editor Password  ║
  834. ; ╚═══════════════════════════╝
  835. ;
  836. $:PASSWORD
  837. ;
  838. CLS
  839. $MSG
  840. $MSG "  ┌───────────────────────────────┐"
  841. $MSG "  │        EDITOR PASSWORD        │"
  842. $MSG "  ├───────────────────────────────┤"
  843. $MSG "  │  Enter the password you wish  │"
  844. $MSG "  │  to use to gain access to the │"
  845. $MSG "  │         doors editor.         │"
  846. $MSG "  │                               │"
  847. $MSG "  │       Example: Mycroft        │"
  848. $MSG "  └───────────────────────────────┘"
  849. $INP %31 "  ══>"
  850. $RETURN
  851.  
  852.  
  853.  
  854.  
  855.  
  856. ;
  857. ; ╔════════════════════╗
  858. ; ║  Get the BBS type  ║
  859. ; ╚════════════════════╝
  860. ;
  861. $:BBS_TYPE
  862. ;
  863. CLS
  864. $MSG
  865. $MSG "  ┌───────────────────────────────────┐"
  866. $MSG "  │       BBS ENVIRONMENT TYPE        │"
  867. $MSG "  ├───────────────────────────────────┤"
  868. $MSG "  │   1. RBBS 15                      │"
  869. $MSG "  │   2. RBBS 16 or RBBS 17           │"
  870. $MSG "  │   3. Bob Wescotts Door Monitor    │"
  871. $MSG "  │   4. G-Mon                        │"
  872. $MSG "  │   5. Quick BBS                    │"
  873. $MSG "  │   6. PC-Board 12.1                │"
  874. $MSG "  │   7. PC-Board 14.0                │"
  875. $MSG "  │   8. Wildcat BBS                  │"
  876. $MSG "  │   9. GAP BBS                      │"
  877. $MSG "  │  10. WWIV BBS                     │"
  878. $MSG "  │  11. Spitfire BBS (Doors)         │"
  879. $MSG "  │  12. Spitfire BBS (Main menu cmd) │"
  880. $MSG "  │  13. Spitfire BBS (Msg. menu cmd) │"
  881. $MSG "  │  14. Spitfire BBS (File menu cmd) │"
  882. $MSG "  └───────────────────────────────────┘"
  883. ;
  884. $:BBS_T0
  885. ;
  886. $INP #12 "  ══>"
  887. $IF #12 < 1 BBS_TERR
  888. ;
  889. $:BBS_T1
  890. $IF #12 > 1 BBS_T2
  891. $SET %12 "RBBS 15"
  892. $SET %13 ""
  893. $RETURN
  894. ;
  895. $:BBS_T2
  896. $IF #12 > 2 BBS_T3
  897. $SET %12 "RBBS"
  898. $SET %13 "RBBS"
  899. $RETURN
  900. ;
  901. $:BBS_T3
  902. $IF #12 > 3 BBS_T4
  903. $SET %12 "Wescotts Monitor"
  904. $SET %13 ""
  905. $RETURN
  906. ;
  907. $:BBS_T4
  908. $IF #12 > 4 BBS_T5
  909. $SET %12 "G-Mon"
  910. $SET %13 ""
  911. $RETURN
  912. ;
  913. $:BBS_T5
  914. $IF #12 > 5 BBS_T6
  915. $SET %12 "Quick BBS"
  916. $SET %13 "QBBS"
  917. $RETURN
  918. ;
  919. $:BBS_T6
  920. $IF #12 > 6 BBS_T7
  921. $SET %12 "PC-Board 12.1"
  922. $SET %13 "PCBOARD"
  923. $RETURN
  924. ;
  925. $:BBS_T7
  926. $IF #12 > 7 BBS_T8
  927. $SET %12 "PC-Board 14.0"
  928. $SET %13 "PCBOARD14"
  929. $RETURN
  930. ;
  931. $:BBS_T8
  932. $IF #12 > 8 BBS_T9
  933. $SET %12 "Wildcat BBS"
  934. $SET %13 "WILDCAT"
  935. $RETURN
  936. ;
  937. $:BBS_T9
  938. $IF #12 > 9 BBS_T10
  939. $SET %12 "Gap BBS"
  940. $SET %13 "GAP"
  941. $RETURN
  942. ;
  943. $:BBS_T10
  944. $IF #12 > 10 BBS_T11
  945. $SET %12 "WWIV BBS"
  946. $SET %13 "WWIV"
  947. $RETURN
  948. ;
  949. $:BBS_T11
  950. $IF #12 > 11 BBS_T12
  951. $SET %12 "Spitfire BBS (Doors)"
  952. $SET %13 "SPITFIRE"
  953. $RETURN
  954. ;
  955. $:BBS_T12
  956. $IF #12 > 12 BBS_T13
  957. $SET %12 "Spitfire BBS (Main menu cmd.)"
  958. $SET %13 "SPITFIREK"
  959. $RETURN
  960. ;
  961. $:BBS_T13
  962. $IF #12 > 13 BBS_T14
  963. $SET %12 "Spitfire BBS (Msg. menu cmd.)"
  964. $SET %13 "SPITFIREM"
  965. $RETURN
  966. ;
  967. $:BBS_T14
  968. $IF #12 > 14 BBS_TERR
  969. $SET %12 "Spitfire BBS (File menu cmd.)"
  970. $SET %13 "SPITFIREF"
  971. $RETURN
  972. ;
  973. $:BBS_TERR
  974. $MSG "  Error, please enter a number between 1 and 14."
  975. $GOTO BBS_T0
  976.  
  977.  
  978.  
  979.  
  980.  
  981. ;
  982. ; ╔════════════════════════════════╗
  983. ; ║  Get the Monitor drive & path  ║
  984. ; ╚════════════════════════════════╝
  985. ;
  986. $:MON_PATH
  987. ;
  988. CLS
  989. $MSG
  990. $MSG "  ┌───────────────────────────────┐"
  991. $MSG "  │ DOOR MONITOR DRIVE & PATHNAME │"
  992. $MSG "  ├───────────────────────────────┤"
  993. $MSG "  │ Enter the complete drive and  │"
  994. $MSG "  │ pathname for the location of  │"
  995. $MSG "  │      your monitor files.      │"
  996. $MSG "  │                               │"
  997. $MSG "  │    Example: C:\RBBS\G-MON     │"
  998. $MSG "  └───────────────────────────────┘"
  999. $INP %14 "  ══>"
  1000. $RETURN
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006. ;
  1007. ; ╔══════════════════════════╗
  1008. ; ║  Get the BBS node count  ║
  1009. ; ╚══════════════════════════╝
  1010. ;
  1011. $:NODES
  1012. CLS
  1013. $MSG
  1014. $MSG "  ┌───────────────────────────────┐"
  1015. $MSG "  │      NUMBER OF BBS NODES      │"
  1016. $MSG "  ├───────────────────────────────┤"
  1017. $MSG "  │     1. System has 1 node      │"
  1018. $MSG "  │     2. System has 2 nodes     │"
  1019. $MSG "  │     3. System has 3 nodes     │"
  1020. $MSG "  │     4. System has 4 nodes     │"
  1021. $MSG "  └───────────────────────────────┘"
  1022. ;
  1023. $:NODE_0
  1024. $INP #10 "  ══>"
  1025. $IF #10 = 1 NODE_1
  1026. $IF #10 = 2 NODE_2
  1027. $IF #10 = 3 NODE_3
  1028. $IF #10 = 4 NODE_4
  1029. $GOTO NODE_ERR
  1030.  
  1031. $:NODE_1
  1032. $SET %23 ""
  1033. $SET %28 "<not in use>"
  1034. $SET #23 0
  1035.  
  1036. $:NODE_2
  1037. $SET %22 ""
  1038. $SET %27 "<not in use>"
  1039. $SET #22 0
  1040.  
  1041. $:NODE_3
  1042. $SET %21 ""
  1043. $SET %26 "<not in use>"
  1044. $SET #21 0
  1045.  
  1046. $:NODE_4
  1047. $RETURN
  1048. ;
  1049. $:NODE_ERR
  1050. $MSG "  Error, please enter a number between 1 and 4."
  1051. $GOTO NODE_0
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057. ;
  1058. ; ╔════════════════════════════╗
  1059. ; ║  Get the BBS drive & path  ║
  1060. ; ╚════════════════════════════╝
  1061. ;
  1062. $:BBS_PATH
  1063. CLS
  1064. $MSG
  1065. $MSG "  ┌───────────────────────────────┐"
  1066. $MSG "  │           BBS DRIVE           │"
  1067. $MSG "  ├───────────────────────────────┤"
  1068. $SET %3 "  │            NODE #"
  1069. $CAT %3 #1
  1070. $CAT %3 "            │"
  1071. $MSG %3
  1072. $MSG "  │                               │"
  1073. $MSG "  │   1. A:     5. E:     9. I:   │"
  1074. $MSG "  │   2. B:     6. F:    10. J:   │"
  1075. $MSG "  │   3. C:     7. G:    11. K:   │"
  1076. $MSG "  │   4. D:     8. H:    12. L:   │"
  1077. $MSG "  └───────────────────────────────┘"
  1078. ;
  1079. $:BBS_P0
  1080. $INP #0 "  ══>"
  1081. $IF #0 < 1 BBS_PERR
  1082. ;
  1083. $:BBS_P1
  1084. $IF #0 > 1 BBS_P2
  1085. $SET %2 "A:"
  1086. $GOTO BBS_PTH2
  1087. ;
  1088. $:BBS_P2
  1089. $IF #0 > 2 BBS_P3
  1090. $SET %2 "B:"
  1091. $GOTO BBS_PTH2
  1092. ;
  1093. $:BBS_P3
  1094. $IF #0 > 3 BBS_P4
  1095. $SET %2 "C:"
  1096. $GOTO BBS_PTH2
  1097. ;
  1098. $:BBS_P4
  1099. $IF #0 > 4 BBS_P5
  1100. $SET %2 "D:"
  1101. $GOTO BBS_PTH2
  1102. ;
  1103. $:BBS_P5
  1104. $IF #0 > 5 BBS_P6
  1105. $SET %2 "E:"
  1106. $GOTO BBS_PTH2
  1107. ;
  1108. $:BBS_P6
  1109. $IF #0 > 6 BBS_P7
  1110. $SET %2 "F:"
  1111. $GOTO BBS_PTH2
  1112. ;
  1113. $:BBS_P7
  1114. $IF #0 > 7 BBS_P8
  1115. $SET %2 "G:"
  1116. $GOTO BBS_PTH2
  1117. ;
  1118. $:BBS_P8
  1119. $IF #0 > 8 BBS_P9
  1120. $SET %2 "H:"
  1121. $GOTO BBS_PTH2
  1122. ;
  1123. $:BBS_P9
  1124. $IF #0 > 9 BBS_P10
  1125. $SET %2 "I:"
  1126. $GOTO BBS_PTH2
  1127. ;
  1128. $:BBS_P10
  1129. $IF #0 > 10 BBS_P11
  1130. $SET %2 "J:"
  1131. $GOTO BBS_PTH2
  1132. ;
  1133. $:BBS_P11
  1134. $IF #0 > 11 BBS_P12
  1135. $SET %2 "K:"
  1136. $GOTO BBS_PTH2
  1137. ;
  1138. $:BBS_P12
  1139. $IF #0 > 12 BBS_PERR
  1140. $SET %2 "L:"
  1141. $GOTO BBS_PTH2
  1142. ;
  1143. $:BBS_PERR
  1144. $MSG "  Error, please enter a number between 1 and 12."
  1145. $GOTO BBS_P0
  1146.  
  1147.  
  1148. $:BBS_PTH2
  1149. ;
  1150. $MSG
  1151. $MSG "  ┌───────────────────────────────┐"
  1152. $MSG "  │         BBS PATHNAME          │"
  1153. $MSG "  ├───────────────────────────────┤"
  1154. $SET %3 "  │            NODE #"
  1155. $CAT %3 #1
  1156. $CAT %3 "            │"
  1157. $MSG %3
  1158. $MSG "  │                               │"
  1159. $MSG "  │ Enter the complete path where │"
  1160. $MSG "  │     your BBS software is.     │"
  1161. $MSG "  │                               │"
  1162. $MSG "  │        Example: \RBBS         │"
  1163. $MSG "  └───────────────────────────────┘"
  1164. $INP %3 "  ══>"
  1165. $RETURN
  1166.  
  1167.  
  1168.  
  1169.  
  1170.  
  1171. ;
  1172. ; ╔══════════════════════════════╗
  1173. ; ║  Get the BBS node comm port  ║
  1174. ; ╚══════════════════════════════╝
  1175. ;
  1176. $:BBS_COMM
  1177. CLS
  1178. $MSG
  1179. $MSG "  ┌───────────────────────────────┐"
  1180. $MSG "  │ BBS NODE COMM PORT ASSIGNMENT │"
  1181. $MSG "  ├───────────────────────────────┤"
  1182. $SET %3 "  │            NODE #"
  1183. $CAT %3 #1
  1184. $CAT %3 "            │"
  1185. $MSG %3
  1186. $MSG "  │                               │"
  1187. $MSG "  │         1. Uses COM1          │"
  1188. $MSG "  │         2. Uses COM2          │"
  1189. $MSG "  │         3. Uses COM3          │"
  1190. $MSG "  │         4. Uses COM4          │"
  1191. $MSG "  └───────────────────────────────┘"
  1192. ;
  1193. $:COMM_0
  1194. $INP #1 "  ══>"
  1195. $IF #1 < 1 COMM_ERR
  1196. $IF #1 > 4 COMM_ERR
  1197. $RETURN
  1198. ;
  1199. $:COMM_ERR
  1200. $MSG "  Error, please enter a number between 1 and 4."
  1201. $GOTO COMM_0
  1202.  
  1203.  
  1204.  
  1205.  
  1206.  
  1207. ;
  1208. ; ╔═════════════════════════════╗
  1209. ; ║  Get the door drive & path  ║
  1210. ; ╚═════════════════════════════╝
  1211. ;
  1212. $:DOORPATH
  1213. CLS
  1214. $MSG
  1215. $MSG "  ┌───────────────────────────────┐"
  1216. $MSG "  │          DOOR DRIVE           │"
  1217. $MSG "  ├───────────────────────────────┤"
  1218. $MSG "  │   1. A:     5. E:     9. I:   │"
  1219. $MSG "  │   2. B:     6. F:    10. J:   │"
  1220. $MSG "  │   3. C:     7. G:    11. K:   │"
  1221. $MSG "  │   4. D:     8. H:    12. L:   │"
  1222. $MSG "  └───────────────────────────────┘"
  1223. ;
  1224. $:DOR_P0
  1225. $INP #0 "  ══>"
  1226. $IF #0 < 1 DOR_PERR
  1227. ;
  1228. $:DOR_P1
  1229. $IF #0 > 1 DOR_P2
  1230. $SET %16 "A:"
  1231. $GOTO DOORPTH2
  1232. ;
  1233. $:DOR_P2
  1234. $IF #0 > 2 DOR_P3
  1235. $SET %16 "B:"
  1236. $GOTO DOORPTH2
  1237. ;
  1238. $:DOR_P3
  1239. $IF #0 > 3 DOR_P4
  1240. $SET %16 "C:"
  1241. $GOTO DOORPTH2
  1242. ;
  1243. $:DOR_P4
  1244. $IF #0 > 4 DOR_P5
  1245. $SET %16 "D:"
  1246. $GOTO DOORPTH2
  1247. ;
  1248. $:DOR_P5
  1249. $IF #0 > 5 DOR_P6
  1250. $SET %16 "E:"
  1251. $GOTO DOORPTH2
  1252. ;
  1253. $:DOR_P6
  1254. $IF #0 > 6 DOR_P7
  1255. $SET %16 "F:"
  1256. $GOTO DOORPTH2
  1257. ;
  1258. $:DOR_P7
  1259. $IF #0 > 7 DOR_P8
  1260. $SET %16 "G:"
  1261. $GOTO DOORPTH2
  1262. ;
  1263. $:DOR_P8
  1264. $IF #0 > 8 DOR_P9
  1265. $SET %16 "H:"
  1266. $GOTO DOORPTH2
  1267. ;
  1268. $:DOR_P9
  1269. $IF #0 > 9 DOR_P10
  1270. $SET %16 "I:"
  1271. $GOTO DOORPTH2
  1272. ;
  1273. $:DOR_P10
  1274. $IF #0 > 10 DOR_P11
  1275. $SET %16 "J:"
  1276. $GOTO DOORPTH2
  1277. ;
  1278. $:DOR_P11
  1279. $IF #0 > 11 DOR_P12
  1280. $SET %16 "K:"
  1281. $GOTO DOORPTH2
  1282. ;
  1283. $:DOR_P12
  1284. $IF #0 > 12 DOR_PERR
  1285. $SET %16 "L:"
  1286. $GOTO DOORPTH2
  1287. ;
  1288. $:DOR_PERR
  1289. $MSG "  Error, please enter a number between 1 and 12."
  1290. $GOTO DOR_P0
  1291.  
  1292.  
  1293. $:DOORPTH2
  1294. ;
  1295. $MSG
  1296. $MSG "  ┌───────────────────────────────┐"
  1297. $MSG "  │         DOOR PATHNAME         │"
  1298. $MSG "  ├───────────────────────────────┤"
  1299. $MSG "  │ Enter the complete path where │"
  1300. $MSG "  │    the door will be run.      │"
  1301. $MSG "  │                               │"
  1302. $MSG "  │   Example: \DOORS\OPINION     │"
  1303. $MSG "  └───────────────────────────────┘"
  1304. $INP %17 "  ══>"
  1305. $RETURN
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311. ;
  1312. ; ╔═══════════════════════════════════════════╗
  1313. ; ║  Get the user documentation drive & path  ║
  1314. ; ╚═══════════════════════════════════════════╝
  1315. ;
  1316. $:DOCSPATH
  1317. ;
  1318. CLS
  1319. $MSG
  1320. $MSG "  ┌───────────────────────────────┐"
  1321. $MSG "  │USER DOCUMENTATION DRIVE & PATH│"
  1322. $MSG "  ├───────────────────────────────┤"
  1323. $MSG "  │ Enter the complete drive and  │"
  1324. $MSG "  │ pathname for the location of  │"
  1325. $MSG "  │  the downloadable doc files.  │"
  1326. $MSG "  │                               │"
  1327. $MSG "  │    Example: C:\RBBS\DOCS      │"
  1328. $MSG "  └───────────────────────────────┘"
  1329. $INP %18 "  ══>"
  1330. $RETURN
  1331.  
  1332.  
  1333.  
  1334.  
  1335.  
  1336. ;
  1337. ; ╔═══════════════════════════════╗
  1338. ; ║  Get the door batch filename  ║
  1339. ; ╚═══════════════════════════════╝
  1340. ;
  1341. $:BAT_NAME
  1342. ;
  1343. CLS
  1344. $MSG
  1345. $MSG "  ┌───────────────────────────────┐"
  1346. $MSG "  │      DOOR BATCH FILENAME      │"
  1347. $MSG "  ├───────────────────────────────┤"
  1348. $MSG "  │  Enter the name of the BATCH  │"
  1349. $MSG "  │  file you wish to use to run  │"
  1350. $MSG "  │  the door.  Do not include a  │"
  1351. $MSG "  │      drive or pathname.       │"
  1352. $MSG "  │                               │"
  1353. $MSG "  │     Example: OPINION.BAT      │"
  1354. $MSG "  └───────────────────────────────┘"
  1355. $INP %15 "  ══>"
  1356. $RETURN
  1357.  
  1358.  
  1359.  
  1360.  
  1361.  
  1362. ;
  1363. ; ╔═══════════════════════════════════════════════╗
  1364. ; ║  Get the door bulletin drive, path & filename ║
  1365. ; ╚═══════════════════════════════════════════════╝
  1366. ;
  1367. $:BUL_NAME
  1368. ;
  1369. CLS
  1370. $MSG
  1371. $MSG "  ┌───────────────────────────────┐"
  1372. $MSG "  │         BULLETIN NAME         │"
  1373. $MSG "  ├───────────────────────────────┤"
  1374. $MSG %2
  1375. $MSG "  │                               │"
  1376. $MSG "  │Enter the complete drive, path │"
  1377. $MSG "  │and filename for this bulletin.│"
  1378. $MSG "  │                               │"
  1379. $MSG "  │   Example: C:\RBBS\BULLET10   │"
  1380. $MSG "  └───────────────────────────────┘"
  1381. $INP %2 "  ══>"
  1382. $RETURN
  1383.  
  1384.  
  1385.  
  1386.  
  1387.  
  1388. $:MAX_TIME
  1389. ;
  1390. CLS
  1391. $MSG
  1392. $MSG "  ┌───────────────────────────────┐"
  1393. $MSG "  │       MAXIMUM DOOR TIME       │"
  1394. $MSG "  ├───────────────────────────────┤"
  1395. $MSG "  │                               │"
  1396. $MSG "  │  Enter the maximum number of  │"
  1397. $MSG "  │ minutes user may stay in door │"
  1398. $MSG "  │                               │"
  1399. $MSG "  │          Example: 15          │"
  1400. $MSG "  └───────────────────────────────┘"
  1401. $INP #5 "  ══>"
  1402. $RETURN
  1403.  
  1404.  
  1405.  
  1406.  
  1407.  
  1408.